SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[paCertificaEliminarSubProyecto]
-- < Registro de Actualizaciones >
-- 25-10-2006
-- 09-11-2006

	(@IdSubProyecto 	INT)

AS
SET NOCOUNT ON
-- Eliminar Registros en Tablas de Relacion
EXEC paCertificaEliminarAreasTematicasSP @IdSubProyecto
EXEC paCertificaEliminarNivelesSP @IdSubProyecto
EXEC paCertificaEliminarDestinatariosSP @IdSubProyecto
EXEC paCertificaEliminarSubOrganizacionesSP @IdSubProyecto

-- Ver si debemos Eliminar Instancias y Encuentros Relacionados

-- Eliminar SubProyecto
DELETE Tb_SubProyectos WHERE ( IdSubProyecto = @IdSubProyecto)
GO
GRANT EXECUTE ON  [dbo].[paCertificaEliminarSubProyecto] TO [Certificaciones]
GRANT EXECUTE ON  [dbo].[paCertificaEliminarSubProyecto] TO [CertificacionesAdministracion]
GO
